1 A=32768:FORB=1TO63:C=B+7168+(B*6)+B:FORD=0TO7:E=PEEK(A+8*B+D):F=F+1:B(F)=E:NEXT:F=0
2 FORG=CTOHSTEP8:FORD=7TO0STEP-1:F=F+1:POKEG+D,B(F):NEXTD,G:F=0:NEXT:POKEA,+4101,(B*4)-1